home *** CD-ROM | disk | FTP | other *** search
/ Disney Interactive Software Sampler 1997 to 1998 / Disney Interactive 1997-98 Software Sampler.iso / pc / media / fran.dxr / 00005_pas de curseur.ls < prev    next >
Encoding:
Text File  |  1997-10-17  |  1.1 KB  |  57 lines
  1. on startMovie
  2.   cursor(200)
  3. end
  4.  
  5. on keyDown
  6.   set wasnumber to 0
  7.   if "0123456789" contains the key then
  8.     set wasnumber to 1
  9.     set k to integer(the key)
  10.     set the soundLevel to k
  11.   end if
  12.   if not wasnumber then
  13.     if " " contains the key then
  14.       if the memberNum of sprite 3 <> 0 then
  15.         if the type of member the memberNum of sprite 3 = #digitalVideo then
  16.           set the movieRate of sprite 3 to 0
  17.         end if
  18.       end if
  19.       go("Black")
  20.       go(1, "Somm.dir")
  21.     end if
  22.     if the commandDown and ("q" contains the key) then
  23.       if the memberNum of sprite 3 <> 0 then
  24.         if the type of member the memberNum of sprite 3 = #digitalVideo then
  25.           set the movieRate of sprite 3 to 0
  26.         end if
  27.       end if
  28.       go("Black")
  29.       go(1, "quit")
  30.     end if
  31.   end if
  32. end
  33.  
  34. on Mac
  35.   return the machineType <> 256
  36. end
  37.  
  38. on PC
  39.   return the machineType = 256
  40. end
  41.  
  42. on WinTapette
  43.   return the platform contains "Windows,16"
  44. end
  45.  
  46. on Win95
  47.   return the platform contains "Windows,32"
  48. end
  49.  
  50. on MacBrouette
  51.   return the platform contains "Macintosh,68k"
  52. end
  53.  
  54. on PPC
  55.   return the platform contains "Macintosh,PowerPC"
  56. end
  57.